home *** CD-ROM | disk | FTP | other *** search
/ Celestin Apprentice 4 / Apprentice-Release4.iso / Source Code / C / Applications / GW AdaEd 1.4.2 / GWAdaDemos / Spider / DRAW4.ADA < prev    next >
Encoding:
Text File  |  1994-01-10  |  457 b   |  45 lines  |  [TEXT/GADA]
  1. WITH Spider; Use Spider;
  2. PROCEDURE Drawing4 IS 
  3. BEGIN 
  4. Reset; 
  5. Step;    -- First, insert "Turn;" before this line.
  6. Step;
  7. Step;
  8. Turn;
  9. Step;    -- Second, insert "Cyan;" before this line.
  10. Step;
  11. Step;
  12. Step;
  13. Turn;
  14. Step;    -- Third, insert "Green;" before this line.
  15. Step;
  16. Step;
  17. Step;
  18. Black;
  19. Turn;
  20. Step;
  21. Green;
  22. Turn;
  23. Turn;
  24. Turn;
  25. Step;
  26. Turn;
  27. Black;
  28. Step;
  29. Green;
  30. Step;
  31. Black;
  32. Turn;
  33. Step;
  34. Green;
  35. Step;
  36. Black;
  37. Step;
  38. Turn;
  39. Step;
  40. Red;
  41. Turn;
  42. Step;
  43. Quit;
  44. END Drawing4;
  45.